home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / FredFish PD 308.adf / Vlt / rexx / Remote.vlt < prev    next >
Text File  |  1990-01-18  |  736b  |  38 lines
  1. /*
  2. **
  3. **  Send a command to a remote VLT
  4. **
  5. */
  6.  
  7. str = ""
  8. do i = 1
  9. /*
  10. *   First ask for a command to be executed by the remote VLT
  11. */
  12.    str = request(50, 50, , 
  13.          "Enter a command for the remote to execute:",str,,"Cancel", VLT)
  14.  
  15.    if str = "" then exit(0);
  16. /*
  17. *   The initial escape sequence...
  18. */
  19.    string = '1b'x||"[?91h"
  20. /*
  21. *   ...and the password (AMIGA in this case)...
  22. */
  23.    string = string ||"AMIGA~"
  24. /*
  25. *   ...and the command...
  26. */
  27.    string = string ||str
  28. /*
  29. *   ...and the final escape sequence, make up the full string.
  30. */
  31.    string = string ||'1b'x||"[?91l"
  32. /*
  33. *   Send this string without further translation to the remote VLT.
  34. *   (The initial "" means take the rest of the input line).
  35. */
  36.    send '""'string
  37. end
  38.